﻿Public Class VerzondenTekeningen2

    Dim werknummer As String = My.Forms.FrmInlogscherm.CmbWerknummer.SelectedValue.ToString

    Private Sub BtnFrmHoofdmenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFrmHoofdmenu.Click

        Me.Visible = False
        My.Forms.FrmHoofdmenu.Visible = True

    End Sub

    Private Sub VerzondenTekeningen2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Docregdata2DataSet.Status' table. You can move, or remove it, as needed.
        Me.StatusTableAdapter.Fill(Me.Docregdata2DataSet.Status)
        'TODO: This line of code loads data into the 'Docregdata2DataSet.Datums' table. You can move, or remove it, as needed.
        Me.DatumsTableAdapter.Fill(Me.Docregdata2DataSet.Datums)
        Dim werknummer As String = My.Forms.FrmInlogscherm.CmbWerknummer.SelectedValue.ToString
        Me.TekeningenTableAdapter.FillBy(Me.Docregdata2DataSet.Tekeningen, werknummer)
        'TODO: This line of code loads data into the 'Docregdata2DataSet.Bedrijven' table. You can move, or remove it, as needed.
        Me.BedrijvenTableAdapter.FillByBedrijven_werken(Me.Docregdata2DataSet.Bedrijven, werknummer)

        Inladen_alle_verzonden_brieven()

    End Sub

    Private Sub Inladen_alle_verzonden_brieven()

        Dim strcon As String = My.Settings.Docregdata2ConnectionString
        Dim cn As New SqlConnection(strcon)

        Dim cmd As New SqlCommand

        cmd.CommandText = "AlleVerzondenTekeningen"
        cmd.CommandType = CommandType.StoredProcedure
        cmd.Connection = cn

        cn.Open()

        cmd.Parameters.AddWithValue("@Werknummer", werknummer)
        cmd.ExecuteReader()

        cn.Close()

        Dim da As New SqlDataAdapter
        Dim ds As New DataSet

        da.SelectCommand = cmd


        da.Fill(ds, "AlleVerzondenTekeningen")

        Me.DgrVerzondenTekeningen.DataSource = ds.Tables("AlleVerzondenTekeningen")
        Me.DgrVerzondenTekeningen.AutoGenerateColumns = True
        'Me.DgrVerzondenTekeningen.Columns("Verzonden naar").Visible = False

    End Sub

    Private Sub BtnVerzondenNaar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnVerzondenNaar.Click

        Dataverversen()

    End Sub


    Public Sub Dataverversen()

        Dim strcon As String = My.Settings.Docregdata2ConnectionString
        Dim cn As New SqlConnection(strcon)
        Dim BedrID As Integer = Me.BedrijfsnaamComboBox.SelectedValue

        Dim cmd As New SqlCommand

        cmd.CommandText = "selectieverzonden2"
        cmd.CommandType = CommandType.StoredProcedure
        cmd.Connection = cn

        cn.Open()

        cmd.Parameters.AddWithValue("@BedrID", BedrID)
        cmd.Parameters.AddWithValue("@Werknummer", werknummer)
        cmd.ExecuteReader()

        cn.Close()

        Dim da As New SqlDataAdapter
        Dim ds As New DataSet

        da.SelectCommand = cmd


        da.Fill(ds, "VerzondenTekeningen")

        Me.DgrVerzondenTekeningen.DataSource = ds.Tables("VerzondenTekeningen")
        Me.DgrVerzondenTekeningen.AutoGenerateColumns = True
        Me.DgrVerzondenTekeningen.Columns("Werknr").Visible = False
        Me.DgrVerzondenTekeningen.Columns("Verzonden naar").Visible = False

    End Sub

    Public Sub load_new_rows_and_update_comboboxes()
        BedrijvenTableAdapter.Update(DocRegData2DataSet.Bedrijven)
        BedrijvenTableAdapter.FillByBedrijven_werken(Me.DocRegData2DataSet.Bedrijven, werknummer)

        BedrijvenBindingSource.DataSource = DocRegData2DataSet
        BedrijvenBindingSource.DataMember = "Bedrijven"

        FKTekeningenBedrijvenBindingSource.DataSource = BedrijvenBindingSource
        FKTekeningenBedrijvenBindingSource.DataMember = "FK_Tekeningen_Bedrijven"

        BedrijfsnaamComboBox1.DataSource = BedrijvenBindingSource
        BedrijfsnaamComboBox1.DisplayMember = "Bedrijfsnaam"
        BedrijfsnaamComboBox1.ValueMember = "BedrijvenID"

        NaamComboBox.DataSource = FKTekeningenBedrijvenBindingSource
        NaamComboBox.DisplayMember = "Naam"
        NaamComboBox.ValueMember = "TekeningID"

    End Sub

    Private Sub BtnOntvangenBedrijven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOntvangenBedrijven.Click

        Dim strcon As String = My.Settings.Docregdata2ConnectionString
        Dim cn2 As New SqlConnection(strcon)

        Dim werknummer As String = My.Forms.FrmInlogscherm.CmbWerknummer.SelectedValue.ToString

        Dim TekID As Integer = Me.NaamComboBox.SelectedValue
        Dim DatumID As Integer = Me.DatumComboBox.SelectedValue
        Dim StatusID As Integer = Me.StatusNaamComboBox.SelectedValue

        Dim cmdOntvangen As New SqlCommand

        cmdOntvangen.CommandText = "GetVerzondenNaarTekeningen3"
        cmdOntvangen.CommandType = CommandType.StoredProcedure
        cmdOntvangen.Connection = cn2

        cn2.Open()

        cmdOntvangen.Parameters.AddWithValue("@TekeningID", TekID)
        cmdOntvangen.Parameters.AddWithValue("@DatumID", DatumID)
        cmdOntvangen.Parameters.AddWithValue("@StatusID", StatusID)
        cmdOntvangen.Parameters.AddWithValue("@Werknummer", werknummer)
        cmdOntvangen.ExecuteReader()

        cn2.Close()

        Dim da As New SqlDataAdapter
        Dim ds As New DataSet

        da.SelectCommand = cmdOntvangen

        da.Fill(ds, "OntvangenBedrijven")

        Me.DgrVerzondenTekeningen.DataSource = ds.Tables("OntvangenBedrijven")
        Me.DgrVerzondenTekeningen.AutoGenerateColumns = True

    End Sub

    'Verzendbrief laten zien door dubbelclick op cell
    Private Sub DGRVerzondenTekeningen_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DgrVerzondenTekeningen.CellContentDoubleClick

        Dim strVerzendbrief As String
        strVerzendbrief = Me.DgrVerzondenTekeningen.CurrentCell.Value.ToString
        Process.Start(strVerzendbrief)

    End Sub

End Class